home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / a / asimcdfsv3.5.dms / asimcdfsv3.5.adf / Install-AsimCDFS < prev    next >
Text File  |  1996-02-01  |  68KB  |  2,053 lines
  1. ;$VER: AsimCDFS Install 3.4 (6.1.96) 
  2. ;Copyright ©1993-1996 Asimware Innovations Inc.
  3.  
  4. (onerror (makeassign "AsimCDFSInst") )
  5.  
  6. (set #typeAMIGA 0)
  7. (set #typeCDTV 1)
  8. (set #typeCD32 2)
  9. (set #typeATAPI 3)
  10. (set #typeFLYER 4)
  11.  
  12. (set #autoMount 1)
  13. (set #CDDefault_NC "CD0" )
  14. (set #isPioneer 0)
  15. (set #isNakamichi 0)
  16. (set #isPDCD 0)
  17. (set #PioneerSeparate 0)
  18.  
  19. (set #wbversion (getversion "libs:version.library"))
  20. (set #wbversion (/ #wbversion 65536) )
  21.  
  22. (set #SCSIDevice "scsi.device")
  23. (set #SCSIUnit 4)
  24.  
  25. (set @default-dest "SYS:AsimCDFS")
  26. (set #echotxt "echo \"Mounting AsimCDFS...\"\n" )
  27.  
  28. (complete 0)
  29.  
  30.  
  31. ;  **********************************************************************
  32. ;  Need WB 2.0 or higher.
  33. ;  **********************************************************************
  34. (if (< #wbversion 37)
  35.     (abort "\n\nAmigaDOS 2.0 or higher is required for AsimCDFS 2.0. "
  36.              "\n\nAn upgrade will be needed for your Amiga."
  37.              "\n\nYou are currently running version " #wbversion ".")
  38. )
  39.  
  40.  
  41. ;  **********************************************************************
  42. ;  Lock our install disk
  43. ;  **********************************************************************
  44. (askdisk
  45.     (prompt "Please insert the disk labeled \"AsimCDFS_v3_Install\".")
  46.     (help    "AsimCDFS FileSystem and other utilities will be copied "
  47.             "from this disk into your system.")
  48.     (dest  "AsimCDFS_v3_Install")
  49.     (newname "AsimCDFSInst")
  50. )
  51.  
  52.  
  53.  
  54. ;  **********************************************************************
  55. ;  Need lots of space on sys volume for devs, l, etc.
  56. ;  **********************************************************************
  57. (set #installsize 0)
  58. (set #installsize (+ #installsize (getsize "AsimCDFSInst:l/AsimCDFS") ))
  59. (set #installsize (+ #installsize (getsize "AsimCDFSInst:devs/asimcdfs.devce") ))
  60. (set #installsize (+ #installsize (getsize "AsimCDFSInst:devs/asim_atapi.device") ))
  61. (set #installsize (+ #installsize (getsize "AsimCDFSInst:AsimTunes") ))
  62. (set #installsize (+ #installsize (getsize "AsimCDFSInst:DiscChanger") ))
  63. (set #installsize (+ #installsize (getsize "AsimCDFSInst:AsimCDFS_Prefs") ))
  64. (set #installsize (+ #installsize (getsize "AsimCDFSInst:SimBoot") ))
  65. (set #installsize (+ #installsize (getsize "AsimCDFSInst:PD_Format") ))
  66. (set #installsize (+ #installsize (getsize "AsimCDFSInst:CD³²_Prefs") ))
  67. (set #installsize (+ #installsize (getsize "AsimCDFSInst:CDTV_Prefs") ))
  68. (set #installsize (+ #installsize (getsize "AsimCDFSInst:DefaultCDFS_Prefs.info") ))
  69. (set #installsize (+ #installsize (getsize "AsimCDFSInst:DefaultCDTV_Prefs.info") ))
  70. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Audio_Track.info") ))
  71. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Audio_Disk.info") ))
  72. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Audio_Drawer.info") ))
  73. (set #installsize (+ #installsize (getsize "AsimCDFSInst:PhotoCD_Disk.info") ))
  74. (set #installsize (+ #installsize (getsize "AsimCDFSInst:PhotoCD_Drawer.info") ))
  75. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Raw_Sector.info") ))
  76. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Raw_Disk.info") ))
  77. (set #installsize (+ #installsize (getsize "AsimCDFSInst:MPEG_Track.info") ))
  78. (set #installsize (+ #installsize (getsize "AsimCDFSInst:MPEG_Disk.info") ))
  79. (set #installsize (+ #installsize (getsize "AsimCDFSInst:DefaultCD³²_Prefs.info") ))
  80. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Storage/DOSDrivers/CD0") ))
  81. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Storage/DOSDrivers/CD0.info") ))
  82.  
  83. (if (< (getdiskspace "SYS:") #installsize)
  84.     (abort "\n\nApproximately " (/ #installsize 1024) "K of disk space is needed on your SYS: volume."
  85.              "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)    "K free.\n\n"
  86.              "Delete or transfer some files from the SYS: volume and try again." )
  87. )
  88.  
  89.  
  90.  
  91.  
  92. (set #theirlevel @user-level )
  93. (user 2)
  94.  
  95. (complete 3)
  96. ;  **********************************************************************
  97. ;  Ask if CDTV (1) , CD³² (2) or Amiga (0)
  98. ;  **********************************************************************
  99. (set #IsAmiga
  100.     (askchoice
  101.         (prompt "\nAsimCDFS v3.5 Install\n--------------------\n\Please describe your setup:" )
  102.         (default 0 )
  103.         (choices "Amiga with SCSI CD-ROM" "CDTV/A570" "CD³²" "ATAPI CD-ROM on A4000/A1200" "NewTek Flyer with CD-ROM (unit #6) on SCSI-C" )
  104.         (help "\n\nIf AsimCDFS is being used in conjunction with a CDTV/A570 unit "
  105.                 "then note this with the CDTV/A570 selection.\n\n"
  106.                 "If AsimCDFS is being used with a CD³² unit, then note this with the CD³² selection.\n\n"
  107.                 "Otherwise, you will be installing AsimCDFS on an Amiga equipped "
  108.                 "with a SCSI or IDE controller and SCSI or ATAPI CD-ROM drive." )
  109.     )
  110. )
  111.  
  112.  
  113. (complete 6)
  114. ;  **********************************************************************
  115. ;  Is CDTV
  116. ;  **********************************************************************
  117. (if (= #IsAmiga #typeCDTV) 
  118.     ((set #CDDefault_NC "CD1" )
  119.     (set #SCSIDevice "cdtv.device")
  120.     (set #SCSIUnit 0)
  121.     )
  122. )
  123.  
  124. ;  **********************************************************************
  125. ;  Is CD³²
  126. ;  **********************************************************************
  127. (if (= #IsAmiga #typeCD32) 
  128.     ((set #CDDefault_NC "CD1" )
  129.     (set #SCSIDevice "cd.device")
  130.     (set #SCSIUnit 0)
  131.     )
  132. )
  133.  
  134.  
  135.  
  136. ;  **********************************************************************
  137. ;  Flyer
  138. ;  **********************************************************************
  139. (if (= #IsAmiga #typeFLYER) 
  140.     (set #CDDefault_NC "CD6" )
  141. )
  142.  
  143.  
  144.  
  145.  
  146. ;  **********************************************************************
  147. ;  If amiga, ask if using Pioneer or other
  148. ;  **********************************************************************
  149. (if (= #IsAmiga #typeAMIGA)
  150.     (set #isPioneer 
  151.         (askbool
  152.             (prompt "\n\n\nIs your CD-ROM drive a Pioneer DRM-60x?" )
  153.             (default 0)
  154.             (choices "Pioneer DRM-60x" "Other CD-ROM")
  155.             (help "\n\nIf you are using AsimCDFS with a Pioneer DRM-60x, indicate this "
  156.                     "in your choice.  This drive is a high-performance 6-disc minichanger and "
  157.                     "is not common."
  158.                     "\n\nOtherwise select Other CD-ROM." )
  159.         )
  160.     )
  161. )
  162.  
  163.  
  164. ;  **********************************************************************
  165. ;  If ispioneer==0, ask if using Nakamichi or other
  166. ;  **********************************************************************
  167. (if (and (= #isPioneer 0) (= #IsAmiga #typeAMIGA))
  168.     (set #isNakamichi 
  169.         (askbool
  170.             (prompt "\n\n\nIs your CD-ROM drive a Nakamichi MBR-7\n, a NEC 4xc or a NEC 2xc 7-disc CD-ROM changer?" )
  171.             (default 0)
  172.             (choices "MBR-7 / NEC 2xc, 4xc" "Other CD-ROM")
  173.             (help "\n\nIf you are using AsimCDFS with a Nakamichi MBR-7, a NEC 4xc or a NEC 2xc 7-disc CD-ROM changer, indicate this "
  174.                     "in your choice.  This drive is a high-performance 7-disc minichanger and "
  175.                     "is not common."
  176.                     "\n\nOtherwise select Other CD-ROM." )
  177.         )
  178.     )
  179. )
  180.  
  181. ;  **********************************************************************
  182. ;  If ispioneer==0 & isnakamichi==0, ask if using PD/CD-ROM or other
  183. ;  **********************************************************************
  184. (if (and (= #isNakamichi 0) (and (= #isPioneer 0) (= #IsAmiga #typeAMIGA)) )
  185.     (set #isPDCD 
  186.         (askbool
  187.             (prompt "\n\n\nIs your drive a Panasonic LF-1000 PD/CD-ROM drive?\n(combination read/write optical drive and CD-ROM drive)" )
  188.             (default 0)
  189.             (choices "LF-1000 PD/CD-ROM" "Other CD-ROM")
  190.             (help "\n\nIf you are using AsimCDFS with a Panasonic PD/CD-ROM drive, indicate this "
  191.                     "in your choice.  This drive is a combination read/write optical drive and CD-ROM drive.\n\n"
  192.                     "This drive is also bundled under 3rd party names such as Smart & Friendly and Toray.\n\n"
  193.                     "\n\nOtherwise select Other CD-ROM." )
  194.         )
  195.     )
  196. )
  197.  
  198.  
  199. (if (= #isPDCD 1)
  200.     (message (cat "Panasonic LF-1000 PD/CD-ROM users\n"
  201.                       "---------------------------------\n"
  202.         "Please ensure that your drive is set to the "
  203.         "\"Two LUN Mode\".  This is done via jumper switches "
  204.         "on the back of the drive.  Consult the manufacturer's "
  205.         "documentation for further information.\n\n"
  206.         "Also ensure that your SCSI controller is setup to "
  207.         "recognize LUNs."
  208.          )
  209.     )
  210. )
  211.  
  212.  
  213.  
  214. (complete 9)
  215. (if (or #isPioneer #isNakamichi)
  216.     (
  217.     ;  **********************************************************************
  218.     ;  ask if Pioneer/Nakamichi is separate or pooled
  219.     ;  **********************************************************************
  220.     (set #PioneerSeparate
  221.             (askbool
  222.                 (prompt "\n\nDo you wish to have separate devices mounted, or would you like all discs pooled into 1 device?\n\n" )
  223.                 (default 0 )
  224.                 (choices "Separate" "Pooled")
  225.                 (help "\n\nIf you wish to have access to all discs simultaneously, then "
  226.                         "select Separate, otherwise select Pooled  --  in the latter case, "
  227.                         "you can switch between the discs with DiscChanger." )
  228.             )
  229.         )
  230.  
  231.  
  232.  
  233.     ;  **********************************************************************
  234.     ;  If pioneer separate, ask for base name
  235.     ;  **********************************************************************
  236.     (if #PioneerSeparate
  237.         ((if #isPioneer
  238.             (set #ourhelp (cat "\n\nThis is the base name under which AmigaDOS will reference the "
  239.                                 "CD-ROM as.  As you are installing AsimCDFS for a Pioneer 6-disc changer "
  240.                                 ", 6 such devices named <basename>0 through <basename>5 will be mounted (ie.  CD0, CD1, ..., CD5) "
  241.                                 "\n\nThe trailing : (colon) or the 0 through 5 MUST NOT be present.") )
  242.         )
  243.     
  244.         (if #isNakamichi
  245.             (set #ourhelp (cat "\n\nThis is the base name under which AmigaDOS will reference the "
  246.                                 "CD-ROM as.  As you are installing AsimCDFS for a Nakamichi 7-disc changer "
  247.                                 ", 7 such devices named <basename>0 through <basename>6 will be mounted (ie.  CD0, CD1, ..., CD6) "
  248.                                 "\n\nThe trailing : (colon) or the 0 through 6 MUST NOT be present.") )
  249.         )
  250.     
  251.         (set #CDDevice_NC 
  252.                 (askstring
  253.                     (prompt "\n\nWhat is the base-name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present.  See manual for explanation.)" )
  254.                     (default "CD" )
  255.                     (help #ourhelp)
  256.                 )
  257.             )
  258.         (set #CDDevice (cat #CDDevice_NC "0:")))
  259.         )
  260.     )
  261. )
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268. ;  **********************************************************************
  269. ;  If pioneer pooled or other CD-ROM, ask for CD0 device alternate
  270. ;  **********************************************************************
  271. (if (not #PioneerSeparate)
  272.     ((set #CDDevice_NC 
  273.         (askstring
  274.             (prompt "\n\nWhat is the name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present)" )
  275.             (default #CDDefault_NC )
  276.             (help "\n\nThis is the name under which AmigaDOS will reference the "
  277.                     "CD-ROM as.  While usually "
  278.                     #CDDefault_NC
  279.                     ", it can be any name you choose. "
  280.                     "\n\nThe trailing : (colon) MUST NOT be present." )
  281.         )
  282.     )
  283.  
  284.     (set #CDDevice (cat #CDDevice_NC ":") ))
  285. )
  286.  
  287.  
  288.  
  289. ;  **********************************************************************
  290. ;  Copy over asim_atapi.device
  291. ;  **********************************************************************
  292. (if (= #IsAmiga #typeATAPI)
  293.     ((user #theirlevel)
  294.  
  295.     (copyfiles
  296.         (prompt "\n\nCopying asim_atapi.device ATAPI CD-ROM driver\n" )
  297.         (source "AsimCDFSInst:devs/asim_atapi.device")
  298.         (dest "DEVS:")
  299.         (confirm)
  300.         (help "\n\nThis will copy the asim_atapi.device ATAPI CD-ROM driver file to your devs: directory\n")
  301.     )
  302.  
  303.     (user 2)
  304.     )
  305. )
  306.  
  307. ;  **********************************************************************
  308. ;  Ask to run SCSI Inquire
  309. ;  **********************************************************************
  310. (if (or (= #IsAmiga #typeAMIGA) (= #IsAmiga #typeATAPI))
  311.     (set #useInquire
  312.         (askbool
  313.             (prompt "\n\nWould you like to use the SCSI Inquire utility to locate your CD-ROM drive?" )
  314.             (default 1 )
  315.             (help "\n\nThe SCSI Inquire utility will scan your system for suitable SCSI "
  316.                     "or ATAPI devices and display a listing of all units connected to the device.  "
  317.                     "Your CD-ROM drive must be powered-on and correctly connected "
  318.                     "for it to be acknowledged by this utility.  Consult the SCSI Inquire "
  319.                     "chapter for more information." )
  320.         )
  321.     )
  322. )
  323.  
  324.  
  325. ;  **********************************************************************
  326. ;  Run SCSI Inquire
  327. ;  **********************************************************************
  328. (if #useInquire
  329.     (
  330.     (if (= #IsAmiga #typeATAPI)
  331.         (run "AsimCDFS_v3_Install:SCSI_Inquire force_atapi")    
  332.     )
  333.  
  334.     (if (= #IsAmiga #typeAMIGA)
  335.         (run "AsimCDFS_v3_Install:SCSI_Inquire")    
  336.     )
  337.     
  338.     (if (exists "ENV:SCSI_Device")
  339.         ((set #SCSIDevice (getenv "SCSI_Device"))
  340.         (set #SCSIUnit (+ (getenv "SCSI_Unit")))
  341.         ))
  342.     )
  343. )
  344.  
  345.  
  346.  
  347. ;  **********************************************************************
  348. ;  The LF-1000 PD/CD-ROM drive uses LUN #1 for the CD-ROM operation
  349. ;  **********************************************************************
  350. (if (= #isPDCD 1)
  351.     (set #SCSIUnit (+ 10 #SCSIUnit))
  352. )
  353.  
  354.  
  355. (complete 12)
  356. (if (= #IsAmiga #typeAMIGA)
  357.     ;  **********************************************************************
  358.     ;  Ask for device name
  359.     ;  **********************************************************************
  360.     ((set #SCSIDevice 
  361.         (askstring
  362.             (prompt "\n\nWhat is the name of your SCSI or ATAPI device?" )
  363.             (default #SCSIDevice )
  364.             (help "\n\nThis is the name of the device driver for your particular "
  365.                     "SCSI card.  For example, the Commodore 2091/590/Amiga3000 has "
  366.                     "a name of \"scsi.device\" while our ATAPI driver has a name of \"asim_ide.device\".\n\n"
  367.                     "If you successfully ran the SCSI Inquire utility, this question will default to the correct unit number. "
  368.                     "Otherwise, consult either the AsimCDFS User's Guide or contact the controller card manufacturer." )
  369.         )
  370.     )
  371.     
  372.     (complete 15)
  373.     ;  **********************************************************************
  374.     ;  Ask for unit number
  375.     ;  **********************************************************************
  376.     (set #SCSIUnit 
  377.         (asknumber
  378.             (prompt "\n\nWhat is the unit number of your CD-ROM drive?" )
  379.             (default #SCSIUnit )
  380.             (help "\n\nThis is the unit # of the CD-ROM drive.  This is usually a "
  381.                     "numerical value between 0 and 6 for SCSI units and between 0 and 1 for ATAPI units.\n\n"
  382.                     "If you successfully ran the SCSI Inquire utility, this question will default to the correct unit number.  "
  383.                     "Otherwise, consult the CD-ROM drive documentation for instructions on "
  384.                     "determining the unit #." )
  385.         )
  386.     ))
  387. )
  388.  
  389.  
  390. ;  **********************************************************************
  391. ;  Ask for automount?
  392. ;  **********************************************************************
  393. (complete 18)
  394. (if (not (= #IsAmiga #typeFLYER))
  395.     (set #autoMount
  396.         (askbool
  397.             (prompt "\n\nWould you like the CD-ROM drive automatically mounted upon bootup?" )
  398.             (help "\n\nIf you would like, the appropriate commands will be added to your user-startup file to automatically mount AsimCDFS.\n")
  399.             (default 1)
  400.         )
  401.     )
  402. )
  403.  
  404. (if (= #IsAmiga #typeFLYER)
  405.     ((set #autoMount 0)
  406.     (set #SCSIUnit 206)
  407.     (set #SCSIDevice "flyerscsi.device"))
  408. )
  409.  
  410.  
  411. (set #mountDirectory "sys:storage/DOSDrivers/")
  412.  
  413.  
  414.  
  415.  
  416.  
  417. ;  **********************************************************************
  418. ;  Ask for AsimCDFS:
  419. ;  **********************************************************************
  420. (set #tunesDir
  421.     (askdir
  422.         (prompt "Specify the directory in which the AsimCDFS support programs will be placed:" )
  423.         (help "AsimCDFS contains a number of support programs.  This directory will specifiy where the programs will be placed.  If you need, create a separate directory for the files.")
  424.         (default @default-dest)
  425.         (newpath)
  426.     )
  427. )
  428.  
  429. (if (not (exists #tunesDir (noreq)))
  430.     (makedir #tunesDir
  431.         (prompt "Creating the AsimCDFS: directory...")
  432.         (help "This will create the specified directory for the support programs.")
  433.         (infos)
  434.         )
  435. )
  436. (makeassign "AsimCDFS" #tunesDir)
  437.  
  438.  
  439.  
  440.  
  441. ;  **********************************************************************
  442. ;  Ask for AsimCDFS_Buffer:
  443. ;  **********************************************************************
  444. (set #bufferDir "Work:AsimCDFS_Buffer")
  445. (run "AsimCDFS_v3_Install:c/MostFree")    
  446.     
  447. (if (exists "ENV:MostFree")
  448.     (set #bufferDir (cat (getenv "MostFree") "AsimCDFS_Buffer"))
  449. )
  450.  
  451. (if (= #IsAmiga #typeFLYER)
  452.     (if (exists "WORK:" (noreq))
  453.         (set #bufferDir "WORK:AsimCDFS_Buffer")
  454.         (set #bufferDir "SYS:AsimCDFS_Buffer")
  455.     )
  456.     
  457. )
  458.  
  459.  
  460. (set #bufferDir
  461.     (askdir
  462.         (prompt "Specify the directory which can be used for buffering AsimCDFS files:" )
  463.         (help "AsimCDFS will require a directory in which it will buffer "
  464.                 "various files, including PhotoCD thumbnail icons, snapshot icon files "
  465.                 "and audio library files.  As the number of files in this directory "
  466.                 "may grow as your CD-ROM collection expands, it is "
  467.                 "advisable to put this directory on a large hard drive partition." )
  468.         (default #bufferDir )
  469.         (newpath)
  470.     )
  471. )
  472.  
  473. (if (not (exists #bufferDir (noreq)))
  474.     (makedir #bufferDir
  475.         (prompt "Creating the AsimCDFS_Buffer: directory...")
  476.         (help "This will create the specified directory for the buffered files.")
  477.         (infos)
  478.         )
  479. )
  480. (makeassign "AsimCDFS_Buffer" #bufferDir)
  481. (user #theirlevel)
  482.  
  483.  
  484. (set n 0)
  485. (while
  486.     (set #buffsubdir 
  487.         (select n "AsimCDFS_Buffer:PhotoCDIcon_Buffer"
  488.                      "AsimCDFS_Buffer:Audio"
  489.                      "AsimCDFS_Buffer:Raw"
  490.                      "AsimCDFS_Buffer:Marks"
  491.                      "AsimCDFS_Buffer:NonVolatile"
  492.                    ""
  493.             )
  494.         )
  495.     (
  496.     (if (not (exists #buffsubdir (noreq)))
  497.         (makedir #buffsubdir
  498.             (prompt "Creating the " #buffsubdir " directory...")
  499.             (help "This will create the specified directory for the buffered files.")
  500.             (infos)
  501.             )
  502.     )
  503.  
  504.     (set n (+ n 1))
  505.     )
  506. )
  507.  
  508.  
  509. (copyfiles
  510.     (prompt "\n\nCopying Corel_Directory index file to the "
  511.         "AsimCDFS_Buffer: directory.\n" )
  512.     (source "AsimCDFSInst:Corel_Directory")
  513.     (dest "AsimCDFS_Buffer:")
  514.     (confirm)
  515.     (help "\n\nThis will copy an index file containing proper disc "
  516.         "names for the Corel ProPhoto library (Volumes 1 and 2).")
  517. )
  518.  
  519.  
  520.  
  521. (if (not (exists "C:ViewTek" (noreq)))
  522.     ((copyfiles
  523.         (prompt "\n\nCopying the public domain program ViewTek by "
  524.             "Thomas Krehbiel to your C: directory.")
  525.         (source "AsimCDFSInst:ViewTek/VT")
  526.         (dest "C:")
  527.         (newname "ViewTek")
  528.         (help "\n\nThis will copy over the public domain viewing "
  529.             "program ViewTek to your C: directory where it will be "
  530.             "automatically used when you double-click on PhotoCD and "
  531.             "Corel ProPhoto thumbnail icons.")
  532.         (confirm)
  533.     ))
  534. )
  535.  
  536.  
  537.  
  538. ;  **********************************************************************
  539. ;  delete obsolete files
  540. ;  **********************************************************************
  541. ;  Delete old AsimPhoto, if present in AsimCDFS dir.
  542. ;  all other files are either the user's or will be over written
  543. (if (exists "AsimCDFS:AsimPhoto")
  544.     ((delete "AsimCDFS:AsimPhoto"
  545.         (prompt "\n\Deleting obsolete AsimPhoto.\n" )
  546.         (confirm)
  547.         (help "\n\nThis will delete the old AsimPhoto program, which is "
  548.             "no longer required for AsimCDFS v3.x\n" )
  549.         )
  550.     )
  551. )        
  552.  
  553.  
  554. (if (exists "AsimCDFS:AsimPhoto.info")
  555.     ((delete "AsimCDFS:AsimPhoto.info"
  556.         (prompt "\n\Deleting obsolete AsimPhoto.info.\n" )
  557.         (confirm)
  558.         (help "\n\nThis will delete the old AsimPhoto icon, which is "
  559.             "no longer required for AsimCDFS v3.x\n" )
  560.         )
  561.     )
  562. )        
  563.  
  564. (if (exists "ENVARC:AsimCDFS/Photo.info")
  565.     ((delete "ENVARC:AsimCDFS/Photo.info"
  566.         (prompt "\n\Deleting obsolete default Photo icon.\n" )
  567.         (confirm)
  568.         (help "\n\nThis will delete the old default Photo icon, which is "
  569.             "no longer required for AsimCDFS v3.x\n" )
  570.         )
  571.     )
  572. )        
  573.  
  574.  
  575.  
  576.  
  577. (if (exists "ENVARC:AsimCDFS/DiscChanger.prefs")
  578.     ((delete "ENVARC:AsimCDFS/DiscChanger.prefs"
  579.         (prompt "\n\Deleting obsolete DiscChanger preferences file.\n" )
  580.         (confirm)
  581.         (help "\n\nThis will delete the old DiscChanger preferences file, which is "
  582.             "no longer required for AsimCDFS v3.x\n" )
  583.         )
  584.     )
  585. )        
  586.  
  587. (if (exists "ENVARC:AsimCDFS/AsimTunes.prefs")
  588.     ((delete "ENVARC:AsimCDFS/AsimTunes.prefs"
  589.         (prompt "\n\Deleting obsolete AsimTunes preferences file.\n" )
  590.         (confirm)
  591.         (help "\n\nThis will delete the old AsimTunes preferences file, which is "
  592.             "no longer required for AsimCDFS v3.x\n" )
  593.         )
  594.     )
  595. )        
  596.  
  597.  
  598. (if (exists "ENVARC:AsimCDFS/AsimPhoto.prefs")
  599.     ((delete "ENVARC:AsimCDFS/AsimPhoto.prefs"
  600.         (prompt "\n\Deleting obsolete AsimPhoto preferences file.\n" )
  601.         (confirm)
  602.         (help "\n\nThis will delete the old AsimPhoto preferences file, which is "
  603.             "no longer required for AsimCDFS v3.x\n" )
  604.         )
  605.     )
  606. )        
  607.  
  608.  
  609.  
  610. ;  **********************************************************************
  611. ;  l:AsimCDFS
  612. ;  **********************************************************************
  613. (complete 21)
  614. (protect "l:AsimCDFS" "rwed" )
  615. (copyfiles
  616.     (prompt "\n\nCopying AsimCDFS FileSystem to the l: directory.\n" )
  617.     (source "AsimCDFSInst:l/AsimCDFS")
  618.     (dest "l:")
  619.     (confirm)
  620.     (help "\n\nThis will copy over the AsimCDFS FileSystem program to your "
  621.         "l: directory\n\nThis is an essential step in the installation "
  622.         "process.\n" )
  623. )
  624.  
  625.  
  626.  
  627. ;  **********************************************************************
  628. ;  devs:asimcdfs.device
  629. ;  **********************************************************************
  630. (complete 25)
  631. (protect "devs:asimcdfs.device" "rwed" )
  632. (copyfiles
  633.     (prompt "\n\nCopying asimcdfs.device to the devs: directory.\n" )
  634.     (source "AsimCDFSInst:devs/asimcdfs.device")
  635.     (dest "devs:")
  636.     (confirm)
  637.     (help "\n\nThis will copy over the asimcdfs.device program to your "
  638.         "devs: directory\n\nThis is an essential step in the installation "
  639.         "process.\n" )
  640. )
  641.  
  642.  
  643.  
  644.  
  645.  
  646. ;  **********************************************************************
  647. ;  Create PD0 mountlist for PD/CD-ROM drive
  648. ;  **********************************************************************
  649. ;(if (= #isPDCD 1)
  650. ;    (
  651. ;    )
  652. ;)
  653.  
  654.  
  655.  
  656.  
  657. ;  **********************************************************************
  658. ;  Create mountlists and alter user-startup
  659. ;  **********************************************************************
  660. (if (= #wbversion 37) 
  661.     ((if #PioneerSeparate
  662.         ((set #startupCommand1 (cat "mount >NIL: " #CDDevice_NC "0: from devs:MountList." #CDDevice_NC "\n") )
  663.         (set #startupCommand2 (cat "mount >NIL: " #CDDevice_NC "1: from devs:MountList." #CDDevice_NC "\n") )
  664.         (set #startupCommand3 (cat "mount >NIL: " #CDDevice_NC "2: from devs:MountList." #CDDevice_NC "\n") )
  665.         (set #startupCommand4 (cat "mount >NIL: " #CDDevice_NC "3: from devs:MountList." #CDDevice_NC "\n") )
  666.         (set #startupCommand5 (cat "mount >NIL: " #CDDevice_NC "4: from devs:MountList." #CDDevice_NC "\n") )
  667.         (if #isPioneer
  668.             (set #startupCommand6 (cat "mount >NIL: " #CDDevice_NC "5: from devs:MountList." #CDDevice_NC "\n") )
  669.         )
  670.         (if #isNakamichi
  671.             (set #startupCommand6 (cat "mount >NIL: " #CDDevice_NC "5: from devs:MountList." #CDDevice_NC "\n" "mount >NIL: " #CDDevice_NC "6: from devs:MountList." #CDDevice_NC "\n") )
  672.         )
  673.             
  674.         
  675.         (if #autoMount
  676.             ((protect "S:User-Startup" "rwed" )
  677.             (protect "S:Startup-Sequence" "rwed" )
  678.             
  679.             (startup "AsimCDFS"
  680.                 (command #echotxt)
  681.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  682.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  683.                 (command #startupCommand1 )
  684.                 (command #startupCommand2 )
  685.                 (command #startupCommand3 )
  686.                 (command #startupCommand4 )
  687.                 (command #startupCommand5 )
  688.                 (command #startupCommand6 )
  689.                 (prompt "Inserting MOUNT commands into the startup-sequence")
  690.                 (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  691.                         "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  692.                         "automatically start AsimCDFS upon bootup." )
  693.             ))
  694.         ))
  695.     )
  696.  
  697.     (if (not #PioneerSeparate)
  698.         ((set #startupCommand (cat "mount >NIL: " #CDDevice " from devs:MountList." #CDDevice_NC "\n") )
  699.         (if #autoMount
  700.             ((protect "S:User-Startup" "rwed" )
  701.             (protect "S:Startup-Sequence" "rwed" )
  702.             
  703.             (startup "AsimCDFS"
  704.                 (command #echotxt)
  705.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  706.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  707.                 (command #startupCommand )
  708.                 (prompt "Inserting MOUNT command into the startup-sequence")
  709.                 (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  710.                         "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  711.                         "automatically start AsimCDFS upon bootup." )
  712.             ))
  713.         ))
  714.     )
  715.     
  716.     (if (not #autoMount)
  717.         ((protect "S:User-Startup" "rwed" )
  718.         (protect "S:Startup-Sequence" "rwed" )
  719.         
  720.         (startup "AsimCDFS"
  721.             (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  722.             (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  723.             (prompt "Inserting MOUNT command into the startup-sequence")
  724.             (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  725.                     "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  726.                     "automatically start AsimCDFS upon bootup." )
  727.         ))
  728.     )
  729.  
  730.     (protect (cat "devs:MountList." #CDDevice_NC) "rwed" )
  731.  
  732.     (if #isPioneer 
  733.         (set #LastLine "\n")
  734.     )
  735.  
  736.     (if #isNakamichi 
  737.         (set #LastLine (cat #CDDevice_NC "6:\n"
  738.                             "    Device         = " #SCSIDevice "\n"
  739.                             "    Unit           = 6" #SCSIUnit "\n"
  740.                             "    Buffers        = 0\n"
  741.                             "    BufMemType     = 5\n"
  742.                             "    Mask           = 0xffffffe\n"
  743.                             "    Flags          = 0\n"
  744.                             "    FileSystem     = l:AsimCDFS\n"
  745.                             "    DosType        = 0x662dabac\n"
  746.                             "    GlobVec        = -1\n"
  747.                             "    Mount          = 1\n"
  748.                             "    Reserved       = 0\n"
  749.                             "    LowCyl         = 0\n"
  750.                             "    HighCyl        = 999\n"
  751.                             "    Surfaces       = 1\n"
  752.                             "    BlocksPerTrack = 32\n"
  753.                             "    Priority       = 10\n"
  754.                             "    StackSize      = 5000\n"
  755.                             "#\n\n")
  756.             )
  757.         )
  758.                             
  759.  
  760.  
  761.     (if #PioneerSeparate
  762.         (textfile
  763.             (dest (cat "devs:MountList." #CDDevice_NC) )
  764.             (append "/************************************************************************/\n"
  765.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  766.                       "/************************************************************************/\n")
  767.             (append #CDDevice_NC "0:\n")
  768.             (append "    Device         = " #SCSIDevice "\n" )
  769.             (append "    Unit           = 0" #SCSIUnit "\n" )
  770.             (append "    Buffers        = 0\n")
  771.             (append "    BufMemType     = 5\n" )
  772.             (append "    Mask           = 0xffffffe\n" )
  773.             (append "    Flags          = 0\n" )
  774.             (append "    FileSystem     = l:AsimCDFS\n")
  775.             (append "    DosType        = 0x662dabac\n")
  776.             (append "    GlobVec        = -1\n")
  777.             (append "    Mount          = 1\n")
  778.             (append "    Reserved       = 0\n")
  779.             (append "    LowCyl         = 0\n")
  780.             (append "    HighCyl        = 999\n")
  781.             (append "    Surfaces       = 1\n")
  782.             (append "    BlocksPerTrack = 32\n")
  783.             (append "    Priority       = 10\n")
  784.             (append "    StackSize      = 5000\n")
  785.             (append "#\n\n")
  786.             (append #CDDevice_NC "1:\n")
  787.             (append "    Device         = " #SCSIDevice "\n" )
  788.             (append "    Unit           = 1" #SCSIUnit "\n" )
  789.             (append "    Buffers        = 0\n")
  790.             (append "    BufMemType     = 5\n" )
  791.             (append "    Mask           = 0xffffffe\n" )
  792.             (append "    Flags          = 0\n" )
  793.             (append "    FileSystem     = l:AsimCDFS\n")
  794.             (append "    DosType        = 0x662dabac\n")
  795.             (append "    GlobVec        = -1\n")
  796.             (append "    Mount          = 1\n")
  797.             (append "    Reserved       = 0\n")
  798.             (append "    LowCyl         = 0\n")
  799.             (append "    HighCyl        = 999\n")
  800.             (append "    Surfaces       = 1\n")
  801.             (append "    BlocksPerTrack = 32\n")
  802.             (append "    Priority       = 10\n")
  803.             (append "    StackSize      = 5000\n")
  804.             (append "#\n\n")
  805.             (append #CDDevice_NC "2:\n")
  806.             (append "    Device         = " #SCSIDevice "\n" )
  807.             (append "    Unit           = 2" #SCSIUnit "\n" )
  808.             (append "    Buffers        = 0\n")
  809.             (append "    BufMemType     = 5\n" )
  810.             (append "    Mask           = 0xffffffe\n" )
  811.             (append "    Flags          = 0\n" )
  812.             (append "    FileSystem     = l:AsimCDFS\n")
  813.             (append "    DosType        = 0x662dabac\n")
  814.             (append "    GlobVec        = -1\n")
  815.             (append "    Mount          = 1\n")
  816.             (append "    Reserved       = 0\n")
  817.             (append "    LowCyl         = 0\n")
  818.             (append "    HighCyl        = 999\n")
  819.             (append "    Surfaces       = 1\n")
  820.             (append "    BlocksPerTrack = 32\n")
  821.             (append "    Priority       = 10\n")
  822.             (append "    StackSize      = 5000\n")
  823.             (append "#\n\n")
  824.             (append #CDDevice_NC "3:\n")
  825.             (append "    Device         = " #SCSIDevice "\n" )
  826.             (append "    Unit           = 3" #SCSIUnit "\n" )
  827.             (append "    Buffers        = 0\n")
  828.             (append "    BufMemType     = 5\n" )
  829.             (append "    Mask           = 0xffffffe\n" )
  830.             (append "    Flags          = 0\n" )
  831.             (append "    FileSystem     = l:AsimCDFS\n")
  832.             (append "    DosType        = 0x662dabac\n")
  833.             (append "    GlobVec        = -1\n")
  834.             (append "    Mount          = 1\n")
  835.             (append "    Reserved       = 0\n")
  836.             (append "    LowCyl         = 0\n")
  837.             (append "    HighCyl        = 999\n")
  838.             (append "    Surfaces       = 1\n")
  839.             (append "    BlocksPerTrack = 32\n")
  840.             (append "    Priority       = 10\n")
  841.             (append "    StackSize      = 5000\n")
  842.             (append "#\n\n")
  843.             (append #CDDevice_NC "4:\n")
  844.             (append "    Device         = " #SCSIDevice "\n" )
  845.             (append "    Unit           = 4" #SCSIUnit "\n" )
  846.             (append "    Buffers        = 0\n")
  847.             (append "    BufMemType     = 5\n" )
  848.             (append "    Mask           = 0xffffffe\n" )
  849.             (append "    Flags          = 0\n" )
  850.             (append "    FileSystem     = l:AsimCDFS\n")
  851.             (append "    DosType        = 0x662dabac\n")
  852.             (append "    GlobVec        = -1\n")
  853.             (append "    Mount          = 1\n")
  854.             (append "    Reserved       = 0\n")
  855.             (append "    LowCyl         = 0\n")
  856.             (append "    HighCyl        = 999\n")
  857.             (append "    Surfaces       = 1\n")
  858.             (append "    BlocksPerTrack = 32\n")
  859.             (append "    Priority       = 10\n")
  860.             (append "    StackSize      = 5000\n")
  861.             (append "#\n\n")
  862.             (append #CDDevice_NC "5:\n")
  863.             (append "    Device         = " #SCSIDevice "\n" )
  864.             (append "    Unit           = 5" #SCSIUnit "\n" )
  865.             (append "    Buffers        = 0\n")
  866.             (append "    BufMemType     = 5\n" )
  867.             (append "    Mask           = 0xffffffe\n" )
  868.             (append "    Flags          = 0\n" )
  869.             (append "    FileSystem     = l:AsimCDFS\n")
  870.             (append "    DosType        = 0x662dabac\n")
  871.             (append "    GlobVec        = -1\n")
  872.             (append "    Mount          = 1\n")
  873.             (append "    Reserved       = 0\n")
  874.             (append "    LowCyl         = 0\n")
  875.             (append "    HighCyl        = 999\n")
  876.             (append "    Surfaces       = 1\n")
  877.             (append "    BlocksPerTrack = 32\n")
  878.             (append "    Priority       = 10\n")
  879.             (append "    StackSize      = 5000\n")
  880.             (append "#\n\n")
  881.             (append #LastLine )
  882.         )
  883.     )
  884.  
  885.  
  886.  
  887.     (if (not #PioneerSeparate)
  888.         (textfile
  889.             (dest (cat "devs:MountList." #CDDevice_NC) )
  890.             (append "/************************************************************************/\n"
  891.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  892.                       "/************************************************************************/\n")
  893.             (append #CDDevice "\n")
  894.             (append "    Device         = " #SCSIDevice "\n" )
  895.             (append "    Unit           = " #SCSIUnit "\n" )
  896.             (append "    Buffers        = 0\n")
  897.             (append "    BufMemType     = 5\n" )
  898.             (append "    Mask           = 0xffffffe\n" )
  899.             (append "    Flags          = 0\n" )
  900.             (append "    FileSystem     = l:AsimCDFS\n")
  901.             (append "    DosType        = 0x662dabac\n")
  902.             (append "    GlobVec        = -1\n")
  903.             (append "    Mount          = " #autoMount "\n")
  904.             (append "    Reserved       = 0\n")
  905.             (append "    LowCyl         = 0\n")
  906.             (append "    HighCyl        = 999\n")
  907.             (append "    Surfaces       = 1\n")
  908.             (append "    BlocksPerTrack = 32\n")
  909.             (append "    Priority       = 10\n")
  910.             (append "    StackSize      = 5000\n")
  911.             (append "#\n")
  912.         )
  913.     ))
  914. )
  915.  
  916.  
  917.  
  918. (if (> #wbversion 37) 
  919.     ((if (not #PioneerSeparate)
  920.         ((textfile
  921.             (dest (cat #mountDirectory #CDDevice_NC) )
  922.             (append "/************************************************************************/\n"
  923.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  924.                       "/************************************************************************/\n")
  925.             (append "    Device         = " #SCSIDevice "\n" )
  926.             (append "    Unit           = " #SCSIUnit "\n" )
  927.             (append "    Buffers        = 0\n")
  928.             (append "    BufMemType     = 5\n" )
  929.             (append "    Mask           = 0xffffffe\n" )
  930.             (append "    Flags          = 0\n" )
  931.             (append "    FileSystem     = l:AsimCDFS\n")
  932.             (append "    DosType        = 0x662dabac\n")
  933.             (append "    GlobVec        = -1\n")
  934.             (append "    Reserved       = 0\n")
  935.             (append "    LowCyl         = 0\n")
  936.             (append "    HighCyl        = 999\n")
  937.             (append "    Mount          = 1\n")
  938.             (append "    Surfaces       = 1\n")
  939.             (append "    BlocksPerTrack = 32\n")
  940.             (append "    Priority       = 10\n")
  941.             (append "    StackSize      = 5000\n")
  942.         )
  943.  
  944.         (copyfiles
  945.                 (prompt "\n\nCopying Mountlist icon")
  946.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  947.                 (dest #mountDirectory)
  948.                 (newname (cat #CDDevice_NC ".info"))
  949.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  950.                 (confirm)
  951.             )        
  952.  
  953.     ))
  954.  
  955.  
  956.     (if #PioneerSeparate
  957.         ((textfile
  958.             (dest (cat #mountDirectory #CDDevice_NC "0") )
  959.             (append "/************************************************************************/\n"
  960.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  961.                       "/************************************************************************/\n")
  962.             (append "    Device         = " #SCSIDevice "\n" )
  963.             (append "    Unit           = 0" #SCSIUnit "\n" )
  964.             (append "    Buffers        = 0\n")
  965.             (append "    BufMemType     = 5\n" )
  966.             (append "    Mask           = 0xffffffe\n" )
  967.             (append "    Flags          = 0\n" )
  968.             (append "    FileSystem     = l:AsimCDFS\n")
  969.             (append "    DosType        = 0x662dabac\n")
  970.             (append "    GlobVec        = -1\n")
  971.             (append "    Reserved       = 0\n")
  972.             (append "    LowCyl         = 0\n")
  973.             (append "    HighCyl        = 999\n")
  974.             (append "    Mount          = 1\n")
  975.             (append "    Surfaces       = 1\n")
  976.             (append "    BlocksPerTrack = 32\n")
  977.             (append "    Priority       = 10\n")
  978.             (append "    StackSize      = 5000\n")
  979.         )
  980.  
  981.         (copyfiles
  982.                 (prompt "\n\nCopying Mountlist icon")
  983.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  984.                 (dest #mountDirectory)
  985.                 (newname (cat #CDDevice_NC "0.info"))
  986.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  987.                 (confirm)
  988.             )
  989.         
  990.         (textfile
  991.             (dest (cat #mountDirectory #CDDevice_NC "1") )
  992.             (append "/************************************************************************/\n"
  993.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  994.                       "/************************************************************************/\n")
  995.             (append "    Device         = " #SCSIDevice "\n" )
  996.             (append "    Unit           = 1" #SCSIUnit "\n" )
  997.             (append "    Buffers        = 0\n")
  998.             (append "    BufMemType     = 5\n" )
  999.             (append "    Mask           = 0xffffffe\n" )
  1000.             (append "    Flags          = 0\n" )
  1001.             (append "    FileSystem     = l:AsimCDFS\n")
  1002.             (append "    DosType        = 0x662dabac\n")
  1003.             (append "    GlobVec        = -1\n")
  1004.             (append "    Reserved       = 0\n")
  1005.             (append "    LowCyl         = 0\n")
  1006.             (append "    HighCyl        = 999\n")
  1007.             (append "    Mount          = 1\n")
  1008.             (append "    Surfaces       = 1\n")
  1009.             (append "    BlocksPerTrack = 32\n")
  1010.             (append "    Priority       = 10\n")
  1011.             (append "    StackSize      = 5000\n")
  1012.         )
  1013.  
  1014.         (copyfiles
  1015.                 (prompt "\n\nCopying Mountlist icon")
  1016.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1017.                 (dest #mountDirectory)
  1018.                 (newname (cat #CDDevice_NC "1.info"))
  1019.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  1020.                 (confirm)
  1021.             )
  1022.  
  1023.         (textfile
  1024.             (dest (cat #mountDirectory #CDDevice_NC "2") )
  1025.             (append "/************************************************************************/\n"
  1026.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1027.                       "/************************************************************************/\n")
  1028.             (append "    Device         = " #SCSIDevice "\n" )
  1029.             (append "    Unit           = 2" #SCSIUnit "\n" )
  1030.             (append "    Buffers        = 0\n")
  1031.             (append "    BufMemType     = 5\n" )
  1032.             (append "    Mask           = 0xffffffe\n" )
  1033.             (append "    Flags          = 0\n" )
  1034.             (append "    FileSystem     = l:AsimCDFS\n")
  1035.             (append "    DosType        = 0x662dabac\n")
  1036.             (append "    GlobVec        = -1\n")
  1037.             (append "    Reserved       = 0\n")
  1038.             (append "    LowCyl         = 0\n")
  1039.             (append "    HighCyl        = 999\n")
  1040.             (append "    Mount          = 1\n")
  1041.             (append "    Surfaces       = 1\n")
  1042.             (append "    BlocksPerTrack = 32\n")
  1043.             (append "    Priority       = 10\n")
  1044.             (append "    StackSize      = 5000\n")
  1045.         )
  1046.         
  1047.  
  1048.         (copyfiles
  1049.                 (prompt "\n\nCopying Mountlist icon")
  1050.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1051.                 (dest #mountDirectory)
  1052.                 (newname (cat #CDDevice_NC "2.info"))
  1053.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  1054.                 (confirm)
  1055.             )
  1056.  
  1057.         (textfile
  1058.             (dest (cat #mountDirectory #CDDevice_NC "3") )
  1059.             (append "/************************************************************************/\n"
  1060.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1061.                       "/************************************************************************/\n")
  1062.             (append "    Device         = " #SCSIDevice "\n" )
  1063.             (append "    Unit           = 3" #SCSIUnit "\n" )
  1064.             (append "    Buffers        = 0\n")
  1065.             (append "    BufMemType     = 5\n" )
  1066.             (append "    Mask           = 0xffffffe\n" )
  1067.             (append "    Flags          = 0\n" )
  1068.             (append "    FileSystem     = l:AsimCDFS\n")
  1069.             (append "    DosType        = 0x662dabac\n")
  1070.             (append "    GlobVec        = -1\n")
  1071.             (append "    Reserved       = 0\n")
  1072.             (append "    LowCyl         = 0\n")
  1073.             (append "    HighCyl        = 999\n")
  1074.             (append "    Mount          = 1\n")
  1075.             (append "    Surfaces       = 1\n")
  1076.             (append "    BlocksPerTrack = 32\n")
  1077.             (append "    Priority       = 10\n")
  1078.             (append "    StackSize      = 5000\n")
  1079.         )
  1080.         
  1081.         (copyfiles
  1082.                 (prompt "\n\nCopying Mountlist icon")
  1083.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1084.                 (dest #mountDirectory)
  1085.                 (newname (cat #CDDevice_NC "3.info"))
  1086.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  1087.                 (confirm)
  1088.             )
  1089.  
  1090.         (textfile
  1091.             (dest (cat #mountDirectory #CDDevice_NC "4") )
  1092.             (append "/************************************************************************/\n"
  1093.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1094.                       "/************************************************************************/\n")
  1095.             (append "    Device         = " #SCSIDevice "\n" )
  1096.             (append "    Unit           = 4" #SCSIUnit "\n" )
  1097.             (append "    Buffers        = 0\n")
  1098.             (append "    BufMemType     = 5\n" )
  1099.             (append "    Mask           = 0xffffffe\n" )
  1100.             (append "    Flags          = 0\n" )
  1101.             (append "    FileSystem     = l:AsimCDFS\n")
  1102.             (append "    DosType        = 0x662dabac\n")
  1103.             (append "    GlobVec        = -1\n")
  1104.             (append "    Reserved       = 0\n")
  1105.             (append "    LowCyl         = 0\n")
  1106.             (append "    HighCyl        = 999\n")
  1107.             (append "    Mount          = 1\n")
  1108.             (append "    Surfaces       = 1\n")
  1109.             (append "    BlocksPerTrack = 32\n")
  1110.             (append "    Priority       = 10\n")
  1111.             (append "    StackSize      = 5000\n")
  1112.         )
  1113.  
  1114.         (copyfiles
  1115.                 (prompt "\n\nCopying Mountlist icon")
  1116.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1117.                 (dest #mountDirectory)
  1118.                 (newname (cat #CDDevice_NC "4.info"))
  1119.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  1120.                 (confirm)
  1121.             )
  1122.  
  1123.         (textfile
  1124.             (dest (cat #mountDirectory #CDDevice_NC "5") )
  1125.             (append "/************************************************************************/\n"
  1126.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1127.                       "/************************************************************************/\n")
  1128.             (append "    Device         = " #SCSIDevice "\n" )
  1129.             (append "    Unit           = 5" #SCSIUnit "\n" )
  1130.             (append "    Buffers        = 0\n")
  1131.             (append "    BufMemType     = 5\n" )
  1132.             (append "    Mask           = 0xffffffe\n" )
  1133.             (append "    Flags          = 0\n" )
  1134.             (append "    FileSystem     = l:AsimCDFS\n")
  1135.             (append "    DosType        = 0x662dabac\n")
  1136.             (append "    GlobVec        = -1\n")
  1137.             (append "    Reserved       = 0\n")
  1138.             (append "    LowCyl         = 0\n")
  1139.             (append "    HighCyl        = 999\n")
  1140.             (append "    Mount          = 1\n")
  1141.             (append "    Surfaces       = 1\n")
  1142.             (append "    BlocksPerTrack = 32\n")
  1143.             (append "    Priority       = 10\n")
  1144.             (append "    StackSize      = 5000\n")
  1145.         )
  1146.         (copyfiles
  1147.                 (prompt "\n\nCopying Mountlist icon")
  1148.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1149.                 (dest #mountDirectory)
  1150.                 (newname (cat #CDDevice_NC "5.info"))
  1151.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  1152.                 (confirm)
  1153.             )
  1154.  
  1155.         (if #isNakamichi
  1156.             ((textfile
  1157.                 (dest (cat #mountDirectory #CDDevice_NC "6") )
  1158.                 (append "/************************************************************************/\n"
  1159.                           "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1160.                           "/************************************************************************/\n")
  1161.                 (append "    Device         = " #SCSIDevice "\n" )
  1162.                 (append "    Unit           = 6" #SCSIUnit "\n" )
  1163.                 (append "    Buffers        = 0\n")
  1164.                 (append "    BufMemType     = 5\n" )
  1165.                 (append "    Mask           = 0xffffffe\n" )
  1166.                 (append "    Flags          = 0\n" )
  1167.                 (append "    FileSystem     = l:AsimCDFS\n")
  1168.                 (append "    DosType        = 0x662dabac\n")
  1169.                 (append "    GlobVec        = -1\n")
  1170.                 (append "    Reserved       = 0\n")
  1171.                 (append "    LowCyl         = 0\n")
  1172.                 (append "    HighCyl        = 999\n")
  1173.                 (append "    Mount          = 1\n")
  1174.                 (append "    Surfaces       = 1\n")
  1175.                 (append "    BlocksPerTrack = 32\n")
  1176.                 (append "    Priority       = 10\n")
  1177.                 (append "    StackSize      = 5000\n")
  1178.             )
  1179.             (copyfiles
  1180.                     (prompt "\n\nCopying Mountlist icon")
  1181.                     (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1182.                     (dest #mountDirectory)
  1183.                     (newname (cat #CDDevice_NC "6.info"))
  1184.                     (help "\n\nThis will copy over an icon for the mountlist file.")
  1185.                     (confirm)
  1186.             ))
  1187.         )
  1188.     ))
  1189.  
  1190.  
  1191.     (protect "S:User-Startup" "rwed" )
  1192.     (protect "S:Startup-Sequence" "rwed" )
  1193.  
  1194.     (if (not #autoMount)
  1195.         (startup "AsimCDFS"
  1196.             (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  1197.             (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  1198.             (prompt "Inserting Assign command into the startup-sequence")
  1199.             (help "\n\nThe command assign AsimCDFS: and assign AsimCDFS_Buffer are being entered into your s:user-startup file.")
  1200.             )
  1201.         )
  1202.  
  1203.  
  1204.  
  1205.     (if #autoMount
  1206.         ((if #isPioneer
  1207.             (set #mountCommand6 (cat "mount >NIL: " #CDDevice_NC "5:\n") )
  1208.             )
  1209.         (if #isNakamichi
  1210.             (set #mountCommand6 (cat "mount >NIL: " #CDDevice_NC "5:\n" "mount >NIL: " #CDDevice_NC "6:\n") )
  1211.             )
  1212.  
  1213.  
  1214.         (if #PioneerSeparate
  1215.             (startup "AsimCDFS"
  1216.                 (command #echotxt)
  1217.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  1218.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  1219.                 (command (cat "mount >NIL: " #CDDevice_NC "0:\n") )
  1220.                 (command (cat "mount >NIL: " #CDDevice_NC "1:\n") )
  1221.                 (command (cat "mount >NIL: " #CDDevice_NC "2:\n") )
  1222.                 (command (cat "mount >NIL: " #CDDevice_NC "3:\n") )
  1223.                 (command (cat "mount >NIL: " #CDDevice_NC "4:\n") )
  1224.                 (command #mountCommand6 )
  1225.                 (prompt "Inserting Assign command into the startup-sequence")
  1226.                 (help "\n\nThe command assign AsimCDFS: and assign AsimCDFS_Buffer are being entered into your s:user-startup file.")
  1227.                 )
  1228.             )
  1229.             
  1230.         (if (not #PioneerSeparate)
  1231.             (startup "AsimCDFS"
  1232.                 (command #echotxt)
  1233.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  1234.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  1235.                 (command (cat "mount >NIL: " #CDDevice "\n") )
  1236.                 (prompt "Inserting Assign command into the startup-sequence")
  1237.                 (help "\n\nThe command assign AsimCDFS: and assign AsimCDFS_Buffer are being entered into your s:user-startup file.")
  1238.                 )
  1239.             )            
  1240.         )
  1241.     )
  1242. ))
  1243.  
  1244.  
  1245. ;  **********************************************************************
  1246. ;  Delete old mountlists is DEVS:DosDrivers/
  1247. ;  **********************************************************************
  1248. (if (> #wbversion 37) 
  1249.     ((if (not #PioneerSeparate)
  1250.         ((if (exists (cat "DEVS:DosDrivers/" #CDDevice_NC))
  1251.             ((delete (cat "DEVS:DosDrivers/" #CDDevice_NC)
  1252.             (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1253.             (confirm)
  1254.             (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1255.                     "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1256.                 )
  1257.  
  1258.             (delete (cat "DEVS:DosDrivers/" #CDDevice_NC ".info")
  1259.             (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1260.             (confirm)
  1261.             (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1262.                     "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1263.                 )
  1264.             )
  1265.         ))
  1266.     ))
  1267.  
  1268.     (if #PioneerSeparate
  1269.         ((set n 0)
  1270.         (while
  1271.             (set #oldml
  1272.                 (select n (cat "DEVS:DosDrivers/" #CDDevice_NC "0")
  1273.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "1")
  1274.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "2")
  1275.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "3")
  1276.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "4")
  1277.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "5")
  1278.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "6")
  1279.                            ""
  1280.                     )
  1281.                 )
  1282.                 
  1283.             (if (exists #oldml)
  1284.                 ((delete #oldml
  1285.                 (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1286.                 (confirm)
  1287.                 (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1288.                         "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1289.                     )
  1290.  
  1291.  
  1292.                 (delete (cat #oldml ".info")
  1293.                 (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1294.                 (confirm)
  1295.                 (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1296.                         "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1297.                     )
  1298.                 )
  1299.             )        
  1300.             )
  1301.         )
  1302. ))
  1303.  
  1304. ;  **********************************************************************
  1305. ;  Default prefs files
  1306. ;  **********************************************************************
  1307. (if (or (= #IsAmiga #typeAMIGA) (= #IsAmiga #typeFLYER))
  1308.     ((if (or #isNakamichi #isPioneer)
  1309.         ;  **********************************************************************
  1310.         ;  Default prefs file for a Pioneer drive, separate
  1311.         ;  **********************************************************************
  1312.         ((if #PioneerSeparate
  1313.             ((copyfiles
  1314.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1315.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1316.                 (dest "ENVArc:AsimCDFS")
  1317.                 (newname (cat #CDDevice_NC "0"))
  1318.                 (help "\n\nThis will copy over a default preferences file.")
  1319.                 (confirm)
  1320.             )
  1321.     
  1322.             (copyfiles
  1323.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1324.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1325.                 (dest "ENVArc:AsimCDFS")
  1326.                 (newname (cat #CDDevice_NC "1"))
  1327.                 (help "\n\nThis will copy over a default preferences file.")
  1328.                 (confirm)
  1329.             )
  1330.     
  1331.             (copyfiles
  1332.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1333.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1334.                 (dest "ENVArc:AsimCDFS")
  1335.                 (newname (cat #CDDevice_NC "2"))
  1336.                 (help "\n\nThis will copy over a default preferences file.")
  1337.                 (confirm)
  1338.             )
  1339.     
  1340.             (copyfiles
  1341.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1342.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1343.                 (dest "ENVArc:AsimCDFS")
  1344.                 (newname (cat #CDDevice_NC "3"))
  1345.                 (help "\n\nThis will copy over a default preferences file.")
  1346.                 (confirm)
  1347.             )
  1348.     
  1349.             (copyfiles
  1350.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1351.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1352.                 (dest "ENVArc:AsimCDFS")
  1353.                 (newname (cat #CDDevice_NC "4"))
  1354.                 (help "\n\nThis will copy over a default preferences file.")
  1355.                 (confirm)
  1356.             )
  1357.     
  1358.             (copyfiles
  1359.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1360.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1361.                 (dest "ENVArc:AsimCDFS")
  1362.                 (newname (cat #CDDevice_NC "5"))
  1363.                 (help "\n\nThis will copy over a default preferences file.")
  1364.                 (confirm)
  1365.             )
  1366.  
  1367.             (if #isNakamichi
  1368.                 (copyfiles
  1369.                     (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1370.                     (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1371.                     (dest "ENVArc:AsimCDFS")
  1372.                     (newname (cat #CDDevice_NC "6"))
  1373.                     (help "\n\nThis will copy over a default preferences file.")
  1374.                     (confirm)
  1375.                 ))
  1376.             )
  1377.         )
  1378.             
  1379.         ;  **********************************************************************
  1380.         ;  Default prefs file for a Pioneer drive, pooled
  1381.         ;  **********************************************************************
  1382.         (if (not #PioneerSeparate)
  1383.             (
  1384.             (if #isPioneer
  1385.                 (copyfiles
  1386.                     (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1387.                     (source "AsimCDFSInst:Default_Prefs/Pioneer_Pool")
  1388.                     (dest "ENVArc:AsimCDFS")
  1389.                     (newname #CDDevice_NC)
  1390.                     (help "\n\nThis will copy over a default preferences file.")
  1391.                     (confirm)
  1392.                 ))
  1393.                 
  1394.             (if #IsNakamichi
  1395.                 (copyfiles
  1396.                     (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1397.                     (source "AsimCDFSInst:Default_Prefs/Nakamichi_Pool")
  1398.                     (dest "ENVArc:AsimCDFS")
  1399.                     (newname #CDDevice_NC)
  1400.                     (help "\n\nThis will copy over a default preferences file.")
  1401.                     (confirm)
  1402.                 ))
  1403.             )
  1404.         )        
  1405.     ))
  1406.     
  1407.     
  1408.     ;  **********************************************************************
  1409.     ;  Default prefs file for a SCSI CD-ROM drive
  1410.     ;  **********************************************************************
  1411.     (if (and (not #isNakamichi) (not #isPioneer))
  1412.         (copyfiles
  1413.             (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1414.             (source "AsimCDFSInst:Default_Prefs/Default")
  1415.             (dest "ENVArc:AsimCDFS")
  1416.             (newname #CDDevice_NC)
  1417.             (help "\n\nThis will copy over a default preferences file.")
  1418.             (confirm)
  1419.         )
  1420.     ))
  1421. )
  1422.  
  1423.  
  1424.  
  1425.  
  1426. ;  **********************************************************************
  1427. ;  Default prefs file for an ATAPI CD-ROM drive
  1428. ;  **********************************************************************
  1429. (if (= #IsAmiga #typeATAPI)
  1430.     (copyfiles
  1431.         (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1432.         (source "AsimCDFSInst:Default_Prefs/ATAPI")
  1433.         (dest "ENVArc:AsimCDFS")
  1434.         (newname #CDDevice_NC)
  1435.         (help "\n\nThis will copy over a default preferences file.")
  1436.         (confirm)
  1437.     )
  1438. )
  1439.  
  1440.  
  1441. ;  **********************************************************************
  1442. ;  Default prefs file for a CDTV
  1443. ;  **********************************************************************
  1444. (if (= #IsAmiga #typeCDTV)
  1445.     (copyfiles
  1446.         (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1447.         (source "AsimCDFSInst:Default_Prefs/CDTV")
  1448.         (dest "ENVArc:AsimCDFS")
  1449.         (newname #CDDevice_NC)
  1450.         (help "\n\nThis will copy over a default preferences file.")
  1451.         (confirm)
  1452.     )
  1453. )
  1454.  
  1455.  
  1456. ;  **********************************************************************
  1457. ;  Default prefs file for a CD³²
  1458. ;  **********************************************************************
  1459. (if (= #IsAmiga #typeCD32)
  1460.     (copyfiles
  1461.         (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1462.         (source "AsimCDFSInst:Default_Prefs/CD³²")
  1463.         (dest "ENVArc:AsimCDFS")
  1464.         (newname #CDDevice_NC)
  1465.         (help "\n\nThis will copy over a default preferences file.")
  1466.         (confirm)
  1467.     )
  1468. )
  1469.  
  1470. (complete 28)
  1471.  
  1472.  
  1473.  
  1474.  
  1475.  
  1476.  
  1477.  
  1478. ;  **********************************************************************
  1479. ;  AsimTunes
  1480. ;  **********************************************************************
  1481. (set #instTunes
  1482.     (askbool
  1483.         (prompt "\n\nShould the AsimTunes utility be installed?")
  1484.         (help "\n\nThis will copy over the AsimTunes utility "
  1485.                 "to your AsimCDFS: directory\n\nIf you do not "
  1486.                 "wish the AsimTunes program to be transferred to your system, "
  1487.                 "skip this step.\n" )
  1488.         (default 1)
  1489.     )
  1490. )
  1491.  
  1492. (if #instTunes 
  1493.     ((protect "AsimCDFS:AsimTunes" "rwed" )
  1494.     (protect "AsimCDFS:AsimTunes.info" "rwed" )
  1495.     (copyfiles
  1496.         (prompt "\n\nCopying AsimTunes audio CD controller program to the "
  1497.                   "AsimCDFS: directory.\n" )
  1498.         (source "AsimCDFSInst:AsimTunes")
  1499.         (dest "AsimCDFS:")
  1500.         (infos)
  1501.         (noposition)
  1502.         (help "\n\nThis will copy over the AsimTunes audio CD controller "
  1503.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1504.                 "wish the AsimTunes program to be transferred to your system, "
  1505.                 "skip this step.\n" )
  1506.         (confirm)
  1507.     )
  1508.     
  1509.     (tooltype
  1510.         (dest "AsimCDFS:AsimTunes" )
  1511.         (settooltype "CDROM" #CDDevice )
  1512.         (noposition)
  1513.     )
  1514.         
  1515.         
  1516.     (complete 31)
  1517.     (protect "fonts:AsimTunes2" "rwed" )
  1518.     (protect "fonts:AsimTunes2.font" "rwed" )
  1519.     (protect "fonts:AsimTunes2/11" "rwed" )
  1520.     (protect "fonts:AsimTunes2/20" "rwed" )
  1521.     (copyfiles
  1522.         (prompt "\n\nCopying AsimTunes fonts to the FONTS: directory\n" )
  1523.         (source "AsimCDFSInst:fonts")
  1524.         (dest "fonts:" )
  1525.         (all)
  1526.         (help "\n\nThis will copy over the fonts needed for AsimTunes.\n\n"
  1527.                 "They will be placed into your fonts: directory.\n\n" )
  1528.         (confirm) )
  1529. ))
  1530.  
  1531.  
  1532.  
  1533.  
  1534.  
  1535. ;  **********************************************************************
  1536. ;  DiscChanger
  1537. ;  **********************************************************************
  1538. (complete 34)
  1539.  
  1540. (set #instChanger
  1541.     (askbool
  1542.         (prompt "\n\nShould the DiscChanger utility be installed?")
  1543.         (help "\n\nThis will copy over the DiscChanger utility "
  1544.                 "to your AsimCDFS: directory\n\nIf you do not "
  1545.                 "wish the DiscChanger program to be transferred to your system, "
  1546.                 "skip this step.\n" )
  1547.         (default 1)
  1548.     )
  1549. )
  1550.  
  1551. (complete 37)
  1552. (if #instChanger
  1553.     ((protect "AsimCDFS:DiscChanger" "rwed" )
  1554.     (copyfiles
  1555.         (prompt "\n\nCopying the DiscChanger utility to the AsimCDFS: "
  1556.                   "directory.\n" )
  1557.         (source "AsimCDFSInst:DiscChanger")
  1558.         (dest "AsimCDFS:")
  1559.         (infos)
  1560.         (noposition)
  1561.         (help "\n\nThis will copy over the DiscChanger utility "
  1562.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1563.                 "wish the DiscChanger program to be transferred to your system, "
  1564.                 "skip this step.\n" )
  1565.         (confirm)
  1566.     )
  1567.     
  1568.     (tooltype
  1569.         (dest "AsimCDFS:DiscChanger" )
  1570.         (settooltype "CDROM" #CDDevice )
  1571.         (noposition)
  1572.     )
  1573. ))
  1574.  
  1575.  
  1576.  
  1577.  
  1578.  
  1579. ;  **********************************************************************
  1580. ;  PDFormat
  1581. ;  **********************************************************************
  1582. (complete 38)
  1583.  
  1584. (if (= #isPDCD 1)
  1585.     (
  1586.     (set #instPDFormat
  1587.         (askbool
  1588.             (prompt "\n\nShould the PD_Format utility be installed?")
  1589.             (help "\n\nThis will copy over the PD_Format utility "
  1590.                     "to your AsimCDFS: directory\n\nIf you do not "
  1591.                     "wish the PD_Format program to be transferred to your system, "
  1592.                     "skip this step.\n" )
  1593.             (default 1)
  1594.         )
  1595.     )
  1596.  
  1597.     (complete 39)
  1598.     (if #instPDFormat
  1599.         ((protect "AsimCDFS:PD_Format" "rwed" )
  1600.         (copyfiles
  1601.             (prompt "\n\nCopying the PD_Format utility to the AsimCDFS: "
  1602.                       "directory.\n" )
  1603.             (source "AsimCDFSInst:PD_Format")
  1604.             (dest "AsimCDFS:")
  1605.             (infos)
  1606.             (noposition)
  1607.             (help "\n\nThis will copy over the PD_Format utility "
  1608.                     "program to your AsimCDFS: directory\n\nIf you do not "
  1609.                     "wish the PD_Format  program to be transferred to your system, "
  1610.                     "skip this step.\n" )
  1611.             (confirm)
  1612.         )
  1613.         
  1614.         (tooltype
  1615.             (dest "AsimCDFS:PD_Format" )
  1616.             (noposition)
  1617.         )
  1618.     ))
  1619. ))
  1620.  
  1621.  
  1622.  
  1623.  
  1624.  
  1625. ;  **********************************************************************
  1626. ;  AsimCDFS_Prefs
  1627. ;  **********************************************************************
  1628. (complete 40)
  1629. (set #instPrefs
  1630.     (askbool
  1631.         (prompt "\n\nShould the AsimCDFS_Prefs utility be installed?")
  1632.         (help "\n\nThis will copy over the AsimCDFS_Prefs utility "
  1633.                 "to your AsimCDFS: directory\n\nIf you do not "
  1634.                 "wish the AsimCDFS_Prefs program to be transferred to your system, "
  1635.                 "skip this step.\n" )
  1636.         (default 1)
  1637.     )
  1638. )
  1639.  
  1640. (complete 43)
  1641. (if #instPrefs
  1642.     ((protect "AsimCDFS:AsimCDFS_Prefs" "rwed" )
  1643.     (copyfiles
  1644.         (prompt "\n\nCopying the AsimCDFS_Prefs utility to the AsimCDFS: "
  1645.                   "directory.\n" )
  1646.         (source "AsimCDFSInst:AsimCDFS_Prefs")
  1647.         (dest "AsimCDFS:")
  1648.         (infos)
  1649.         (noposition)
  1650.         (help "\n\nThis will copy over the AsimCDFS_Prefs utility "
  1651.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1652.                 "wish the AsimCDFS_Prefs program to be transferred to your system, "
  1653.                 "skip this step.\n" )
  1654.         (confirm)
  1655.     )
  1656. ))
  1657.  
  1658.  
  1659.  
  1660.  
  1661. ;  **********************************************************************
  1662. ;  SimBoot
  1663. ;  **********************************************************************
  1664. (complete 46)
  1665. (set #instSimBoot
  1666.     (askbool
  1667.         (prompt "\n\nShould the SimBoot utility be installed?")
  1668.         (help "\n\nThis will copy over the SimBoot utility "
  1669.                 "to your AsimCDFS: directory\n\nIf you do not "
  1670.                 "wish the SimBoot program to be transferred to your system, "
  1671.                 "skip this step.\n" )
  1672.         (default 1)
  1673.     )
  1674. )
  1675.  
  1676. (complete 50)
  1677. (if #instSimBoot
  1678.     ((protect "AsimCDFS:SimBoot" "rwed" )
  1679.     (copyfiles
  1680.         (prompt "\n\nCopying the SimBoot utility to the AsimCDFS: "
  1681.                   "directory.\n" )
  1682.         (source "AsimCDFSInst:SimBoot")
  1683.         (dest "AsimCDFS:")
  1684.         (infos)
  1685.         (noposition)
  1686.         (help "\n\nThis will copy over the SimBoot utility "
  1687.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1688.                 "wish the SimBoot program to be transferred to your system, "
  1689.                 "skip this step.\n" )
  1690.         (confirm)
  1691.     )
  1692.  
  1693. ))
  1694.  
  1695.  
  1696.  
  1697. ;  **********************************************************************
  1698. ;  CD³²_Prefs
  1699. ;  **********************************************************************
  1700. (complete 53)
  1701. (set #instCD32Prefs
  1702.     (askbool
  1703.         (prompt "\n\nShould the CD³²_Prefs utility be installed?")
  1704.         (help "\n\nThis will copy over the CD³²_Prefs utility "
  1705.                 "to your AsimCDFS: directory\n\nIf you do not "
  1706.                 "wish the CD³²_Prefs program to be transferred to your system, "
  1707.                 "skip this step.\n" )
  1708.         (default 1)
  1709.     )
  1710. )
  1711.  
  1712. (complete 56)
  1713. (if #instCD32Prefs
  1714.     ((protect "AsimCDFS:CD³²_Prefs" "rwed" )
  1715.     (copyfiles
  1716.         (prompt "\n\nCopying the CD³²_Prefs utility to the AsimCDFS: "
  1717.                   "directory.\n" )
  1718.         (source "AsimCDFSInst:CD³²_Prefs")
  1719.         (dest "AsimCDFS:")
  1720.         (infos)
  1721.         (noposition)
  1722.         (help "\n\nThis will copy over the CD³²_Prefs utility "
  1723.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1724.                 "wish the CD³²_Prefs program to be transferred to your system, "
  1725.                 "skip this step.\n" )
  1726.         (confirm)
  1727.     )
  1728.  
  1729. ))
  1730.  
  1731.  
  1732.  
  1733.  
  1734. ;  **********************************************************************
  1735. ;  CDTV Prefs
  1736. ;  **********************************************************************
  1737. (complete 59)
  1738. (set #instCDTVPrefs
  1739.     (askbool
  1740.         (prompt "\n\nShould the CDTV_Prefs utility be installed?")
  1741.         (help "\n\nThis will copy over the CDTV_Prefs utility "
  1742.                 "to your AsimCDFS: directory\n\nIf you do not "
  1743.                 "wish the CDTV_Prefs program to be transferred to your system, "
  1744.                 "skip this step.\n" )
  1745.         (default 1)
  1746.     )
  1747. )
  1748.  
  1749. (complete 62)
  1750. (if #instCDTVPrefs
  1751.     ((protect "AsimCDFS:CDTV_Prefs" "rwed" )
  1752.     (copyfiles
  1753.         (prompt "\n\nCopying the CDTV_Prefs utility to the AsimCDFS: "
  1754.                   "directory.\n" )
  1755.         (source "AsimCDFSInst:CDTV_Prefs")
  1756.         (dest "AsimCDFS:")
  1757.         (infos)
  1758.         (noposition)
  1759.         (help "\n\nThis will copy over the CDTV_Prefs utility "
  1760.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1761.                 "wish the CDTV_Prefs program to be transferred to your system, "
  1762.                 "skip this step.\n" )
  1763.         (confirm)
  1764.     )
  1765.  
  1766. ))
  1767.  
  1768.  
  1769.  
  1770.  
  1771.  
  1772.  
  1773.  
  1774. (complete 65)
  1775. (set #instCDTVEmul
  1776.     (askbool
  1777.         (prompt "\n\nShould the CDTV emulation option be installed?")
  1778.         (help "\n\nThis will copy over the required files for the "
  1779.                 "CDTV emulation:\n   devs:cdtv.device\n   devs:bookmark.device\n   devs:cardmark.device\n   libs:playerprefs.library\n\nIf you do not "
  1780.                 "wish the CDTV emulation option to be transferred to your system, "
  1781.                 "skip this step.\n" )
  1782.         (default 1)
  1783.     )
  1784. )
  1785.  
  1786. (complete 68)
  1787. (if #instCDTVEmul
  1788.     ((complete 71)
  1789.     ;  **********************************************************************
  1790.     ;  devs:cdtv.device
  1791.     ;  **********************************************************************
  1792.     (protect "devs:cdtv.device" "rwed" )
  1793.     (copyfiles
  1794.         (prompt "\n\nCopying cdtv.device to the devs: directory.\n" )
  1795.         (source "AsimCDFSInst:devs/cdtv.device")
  1796.         (dest "devs:")
  1797.         (confirm)
  1798.         (help "\n\nThis will copy over the cdtv.device program to your "
  1799.             "devs: directory\n\nThis is part of the CDTV emulation\n" )
  1800.     )
  1801.     
  1802.     
  1803.     
  1804.     ;  **********************************************************************
  1805.     ;  devs:bookmark.device
  1806.     ;  **********************************************************************
  1807.     (complete 75)
  1808.     (protect "devs:bookmark.device" "rwed" )
  1809.     (copyfiles
  1810.         (prompt "\n\nCopying bookmark.device to the devs: directory.\n" )
  1811.         (source "AsimCDFSInst:devs/bookmark.device")
  1812.         (dest "devs:")
  1813.         (confirm)
  1814.         (help "\n\nThis will copy over the bookmark.device program to your "
  1815.             "devs: directory\n\nThis is part of the CDTV emulation\n" )
  1816.     )
  1817.     
  1818.     
  1819.     ;  **********************************************************************
  1820.     ;  devs:cardmark.device
  1821.     ;  **********************************************************************
  1822.     (complete 78)
  1823.     (protect "devs:cardmark.device" "rwed" )
  1824.     (copyfiles
  1825.         (prompt "\n\nCopying cardmark.device to the devs: directory.\n" )
  1826.         (source "AsimCDFSInst:devs/cardmark.device")
  1827.         (dest "devs:")
  1828.         (confirm)
  1829.         (help "\n\nThis will copy over the cardmark.device program to your "
  1830.             "devs: directory\n\nThis is part of the CDTV emulation\n" )
  1831.     )
  1832.     
  1833.     
  1834.     ;  **********************************************************************
  1835.     ;  libs:playerprefs.library
  1836.     ;  **********************************************************************
  1837.     (complete 81)
  1838.     (protect "devs:playerprefs.library" "rwed" )
  1839.     (copyfiles
  1840.         (prompt "\n\nCopying playerprefs.library to the libs: directory.\n" )
  1841.         (source "AsimCDFSInst:libs/playerprefs.library")
  1842.         (dest "libs:")
  1843.         (confirm)
  1844.         (help "\n\nThis will copy over the playerprefs.library program to your "
  1845.             "libs: directory\n\nThis is part of the CDTV emulation\n" )
  1846.     )
  1847. ))    
  1848.  
  1849.  
  1850.  
  1851. (set #instCD32Emul
  1852.     (askbool
  1853.         (prompt "\n\nShould the CD³² emulation option be installed?")
  1854.         (help "\n\nThis will copy over the required files for the "
  1855.                 "CD³² emulation:\n   devs:cd.device\n   libs:nonvolatile.library\n   libs:lowlevel.library\n\nIf you do not "
  1856.                 "wish the CD³² emulation option to be transferred to your system, "
  1857.                 "skip this step.\n" )
  1858.         (default 1)
  1859.     )
  1860. )
  1861.  
  1862. (complete 84)
  1863. (if #instCD32Emul
  1864.     ((complete 87)
  1865.     ;  **********************************************************************
  1866.     ;  devs:cd.device
  1867.     ;  **********************************************************************
  1868.     
  1869.     (protect "devs:cd.device" "rwed" )
  1870.     (copyfiles
  1871.         (prompt "\n\nCopying cd.device to the devs: directory.\n" )
  1872.         (source "AsimCDFSInst:devs/cd.device")
  1873.         (dest "devs:")
  1874.         (confirm)
  1875.         (help "\n\nThis will copy over the cd.device program to your "
  1876.             "devs: directory\n\nThis is part of the CD³² emulation\n" )
  1877.     )
  1878.     
  1879.     
  1880.     ;  **********************************************************************
  1881.     ;  libs:nonvolatile.library
  1882.     ;  **********************************************************************
  1883.     (complete 90)
  1884.     (protect "devs:nonvolatile.library" "rwed" )
  1885.     (copyfiles
  1886.         (prompt "\n\nCopying nonvolatile.library to the libs: directory.\n" )
  1887.         (source "AsimCDFSInst:libs/nonvolatile.library")
  1888.         (dest "libs:")
  1889.         (confirm)
  1890.         (help "\n\nThis will copy over the nonvolatile.library program to your "
  1891.             "libs: directory\n\nThis is part of the CD³² emulation\n" )
  1892.     )
  1893.     
  1894.     
  1895.     ;  **********************************************************************
  1896.     ;  libs:lowlevel.library
  1897.     ;  **********************************************************************
  1898.     (complete 93)
  1899.     (protect "devs:lowlevel.library" "rwed" )
  1900.     (copyfiles
  1901.         (prompt "\n\nCopying lowlevel.library to the libs: directory.\n" )
  1902.         (source "AsimCDFSInst:libs/lowlevel.library")
  1903.         (dest "libs:")
  1904.         (confirm)
  1905.         (help "\n\nThis will copy over the lowlevel.library program to your "
  1906.             "libs: directory\n\nThis is part of the CD³² emulation\n" )
  1907.     )
  1908. ))
  1909.  
  1910.  
  1911.  
  1912. ;  **********************************************************************
  1913. ;  default icons in ENV
  1914. ;  **********************************************************************
  1915.  
  1916. (makedir "ENVARC:AsimCDFS"
  1917.     (prompt "Making the ENVARC:AsimCDFS directory, in which various default files will be placed.")
  1918.     (help "This will create a directory in your ENVARC: directory")
  1919.     )
  1920.  
  1921. (makedir "ENV:AsimCDFS"
  1922.     (prompt "Making the ENV:AsimCDFS directory, in which various default files will be placed.")
  1923.     (help "This will create a directory in your ENV: directory")
  1924.     )
  1925.  
  1926. (copyfiles
  1927.     (prompt "\n\nCopying default icons to the ENVARC:AsimCDFS "
  1928.               "directory.\n" )
  1929.     (source "AsimCDFSInst:ENVArc/AsimCDFS")
  1930.     (dest "ENVArc:AsimCDFS")
  1931.     (infos)
  1932.     (all)
  1933.     (help "\n\nThis will copy over default icon files to the ENVArc:AsimCDFS directory.")
  1934.     (confirm)
  1935. )
  1936.  
  1937. (copyfiles
  1938.     (prompt "\n\nCopying default icons to the ENV:AsimCDFS "
  1939.               "directory.\n" )
  1940.     (source "AsimCDFSInst:ENVArc/AsimCDFS")
  1941.     (dest "ENV:AsimCDFS")
  1942.     (infos)
  1943.     (all)
  1944.     (help "\n\nThis will copy over default icon files to the ENV:AsimCDFS directory.")
  1945.     (confirm)
  1946. )
  1947.  
  1948.  
  1949.  
  1950.  
  1951.  
  1952.  
  1953. ;  **********************************************************************
  1954. ;  ask which languages to be added
  1955. ;  **********************************************************************
  1956. (if (exists "LOCALE:")
  1957.     ((user 2)
  1958.     (set #language
  1959.         (askoptions
  1960.             (prompt "Which alternate language catalogs would you like installed?")
  1961.             (help "The various programs have been configured to the following "
  1962.                     "alternate languages:\n    Français\n\nSelect which"
  1963.                     "languages you would like to use with our software.  English "
  1964.                     "language support is automatically provided as standard within the software." )
  1965.             (choices "Français" )
  1966.             (default 1)
  1967.         )
  1968.     )
  1969.     (user #theirlevel)
  1970.     
  1971.     
  1972.     (set n 0)
  1973.     (while
  1974.         (set #langdir
  1975.             (select n "français"
  1976.                        ""
  1977.                 )
  1978.             )
  1979.         (
  1980.         
  1981.         (if (IN #language n)
  1982.             ((set #langdest (tackon "LOCALE:catalogs/" #langdir))
  1983.             (set #langsrc (tackon "AsimCDFSInst:catalogs/" #langdir))
  1984.             
  1985.             (copyfiles
  1986.                 (prompt "\n\nCopying locale " #langdir " language catalogs.\n" )
  1987.                 (source #langsrc)
  1988.                 (dest #langdest)
  1989.                 (infos)
  1990.                 (all)
  1991.                 (help "\n\nThis will copy over the desired langauge file.")
  1992.                 (confirm))
  1993.             )
  1994.         )
  1995.     
  1996.         (set n (+ n 1))
  1997.         )
  1998.     )
  1999. ))    
  2000.  
  2001.  
  2002.     
  2003.  
  2004.  
  2005.  
  2006.  
  2007. ;  **********************************************************************
  2008. ;  Create a 'SYS/NV_Location' environment variable
  2009. ;  **********************************************************************
  2010. (run "setenv SYS/NV_Location AsimCDFS_Buffer:NonVolatile/")
  2011.  
  2012.  
  2013. ;  **********************************************************************
  2014. ;  Create a CD³² Preferences file
  2015. ;  **********************************************************************
  2016. (run "AsimCDFS:CD³²_Prefs SAVE DEFAULT")    
  2017.  
  2018.  
  2019. ;  **********************************************************************
  2020. ;  Create a CDTV Preferences file
  2021. ;  **********************************************************************
  2022. (run "AsimCDFS:CDTV_Prefs SAVE DEFAULT")    
  2023.  
  2024.  
  2025. ;  **********************************************************************
  2026. ;  Tell NewTek Flyer users where the CD-ROM drive is located
  2027. ;  **********************************************************************
  2028. (if (= #IsAmiga #typeFLYER) 
  2029.     (
  2030.     (user 2)
  2031.     (message (cat "NewTek Flyer users\n"
  2032.        "------------------\n"
  2033.         "Your CD-ROM drive will not be automatically started upon bootup.\n\n"
  2034.         "To manually start your CD-ROM drive, you must double-click on the "
  2035.         "CD6 icon located in the Storage/DOSDrivers directory on your " 
  2036.         "Workbench partition.\n\n"
  2037.         "You may wish to leave out the CD6 icon on your Workbench screen "
  2038.         "using the \"Leave Out\" menu item in Workbench."  )
  2039.     )
  2040.     
  2041.     (user #theirlevel)
  2042.     )
  2043. )
  2044.  
  2045.  
  2046. ;  **********************************************************************
  2047. ;  remove assign to AsimCDFSInst
  2048. ;  **********************************************************************
  2049. (makeassign "AsimCDFSInst")
  2050.  
  2051.  
  2052. (complete 100)
  2053.